home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
autose1g
/
frmnewga.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-06-24
|
34KB
|
1,114 lines
VERSION 5.00
Begin VB.Form frmNewGame
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = " Setup A New Game"
ClientHeight = 5655
ClientLeft = 45
ClientTop = 930
ClientWidth = 9465
ControlBox = 0 'False
Icon = "FRMNEWGA.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 5655
ScaleWidth = 9465
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdExit
Caption = "E&xit Game"
Height = 330
Left = 4455
TabIndex = 22
Top = 5040
Width = 1200
End
Begin VB.PictureBox picChooseSector
BackColor = &H00000000&
Height = 1335
Left = 5595
ScaleHeight = 1275
ScaleWidth = 1515
TabIndex = 6
Top = 2655
Width = 1575
Begin VB.CommandButton cmdChoice
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 1200
TabIndex = 10
Top = 960
Width = 315
End
Begin VB.CommandButton cmdChoice
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 0
TabIndex = 9
Top = 960
Width = 315
End
Begin VB.CommandButton cmdChoice
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 1200
TabIndex = 8
Top = 0
Width = 315
End
Begin VB.CommandButton cmdChoice
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 0
TabIndex = 7
Top = 0
Width = 315
End
End
Begin VB.Frame fraSelect
BackColor = &H00000000&
Caption = "Choose Home Planet"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1800
Left = 2685
TabIndex = 12
Top = 2340
Width = 4725
Begin VB.TextBox txtNamePlanet
BackColor = &H00000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 330
Left = 540
TabIndex = 21
Top = 1245
Width = 1575
End
Begin VB.Label lblPlanetName
Appearance = 0 'Flat
BackColor = &H000000C0&
BackStyle = 0 'Transparent
Caption = "Name Your Home Planet:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 195
TabIndex = 15
Top = 990
Width = 2355
End
Begin VB.Label Label1
BackColor = &H000000C0&
BackStyle = 0 'Transparent
Caption = "Choose sector - Player 2 will start in the opposite corner"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 435
Left = 180
TabIndex = 13
Top = 360
Width = 2595
End
End
Begin VB.Frame fraInfo
BackColor = &H00000000&
Caption = "Player 1 Setup"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2055
Left = 2670
TabIndex = 11
Top = 135
Width = 3015
Begin VB.TextBox txtResources
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 285
Left = 1380
TabIndex = 20
Text = "15"
Top = 1170
Width = 615
End
Begin VB.TextBox txtTroops
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty